home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / basic / AmosBlitz_src.lha / Sourcecodes / IFF-Master.asc < prev    next >
Encoding:
Text File  |  1996-06-13  |  2.4 KB  |  78 lines
  1. ANFANG:
  2. Screen Open 1,640,256,16,Hires : Screen Close 0 : Colour 1,$0
  3. Limit Mouse 130,44 To 447,297
  4. Curs Off : Cls 0 : Flash Off 
  5. Curs Off 
  6. Menu$(1)="IFF-Master"
  7. Menu$(1,1)="Über       "
  8. Menu$(1,1,1)=" IFF-Master "
  9. Menu$(1,1,2)="------------"
  10. Menu$(1,1,3)="Version 1.0 "
  11. Menu$(1,1,4)="            "
  12. Menu$(1,1,5)="Programmiert"
  13. Menu$(1,1,6)="    von:    "
  14. Menu$(1,1,7)="            "
  15. Menu$(1,1,8)=" Frank Otto "
  16. Menu$(1,2)="Beenden    "
  17. Menu$(2)=" Bild "
  18. Menu$(2,1)="Laden  "
  19. Menu$(3)=" Animation "
  20. Menu$(3,1)="Laden      "
  21. Menu$(4)=" Musik"
  22. Menu$(4,1)="Soundtracker-Module laden"
  23. Menu$(4,2)="Musik aus                "
  24. Channel 0 To Screen Offset 1
  25. Channel 1 To Screen Offset 1
  26. Channel 2 To Screen Offset 1
  27. Channel 3 To Screen Offset 1
  28. Bar 0,1 To 639,10
  29. Paper 2 : Pen 1 : Text 0,8,"IFF-Master V1.0        Programmiert von Frank Otto.       Wähle Menü-Option     "
  30. Do 
  31. If Key State(77) Then Amal On 0
  32. If Key State(76) Then Amal On 1
  33. If Key State(79) Then Amal On 2
  34. If Key State(78) Then Amal On 3
  35. Amal 1,"M 0,-10,0"
  36. Amal 0,"M 0,10,0"
  37. Amal 2,"M -10,0,0"
  38. Amal 3,"M 10,0,0"
  39. Menu On : Rem Menü einschalten 
  40. On Menu Proc MENU1,MENU2,MENU3,MENU4 : Rem Menütiteln Prozeduren zuweisen 
  41. On Menu On : Rem Abfragesystem einschalten
  42. Loop 
  43. Procedure MENU1
  44.    Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
  45.    If Choice(2)=1 : Rem war es der erste Menüpunkt?
  46.    Else 
  47.       Fade 1 : Wait 15 : End 
  48.    End If 
  49.    On Menu On : Rem Abfragesystem wieder aktivieren!!
  50. End Proc
  51. Procedure MENU2
  52.    Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
  53.    If Choice(2)=1 : Rem war es der erste Menüpunkt?
  54. Colour 1,$0 : Curs Off : Flash Off 
  55. F$=Fsel$("","","Low-Res, Hi-Res, Interlace, EHB oder HAM Bild laden")
  56. If Exist(F$) : Load Iff F$,1 : End If 
  57.    End If 
  58.    On Menu On : Rem Abfragesystem wieder aktivieren!!
  59. End Proc
  60. Procedure MENU3
  61.    Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
  62.    If Choice(2)=1 : Rem war es der erste Menüpunkt?
  63. F$=Fsel$("","","IFF-Animation laden")
  64. If Exist(F$) : Iff Anim F$ To 0,1 : Screen Close 0 : End If 
  65.    End If 
  66.    On Menu On : Rem Abfragesystem wieder aktivieren!!
  67. End Proc
  68. Procedure MENU4
  69.    Cls 0 : Locate 1,1 : Paper 0 : Pen Rnd(6)+1 : Rem Ausgabe löschen
  70.    If Choice(2)=1 : Rem war es der erste Menüpunkt?
  71. F$=Fsel$("","","Soundtracker-Module laden")
  72. If Exist(F$) : Track Load F$,5 : Track Play 5 : End If 
  73.    Else 
  74.    Track Stop 
  75.    End If 
  76.    On Menu On : Rem Abfragesystem wieder aktivieren!!
  77. End Proc
  78.